home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V2D2A.D64 / data maker (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  5.8 KB  |  163 lines
  1. 5 PRINT "[147]":PRINT:PRINT "       THIS IS A BASIC LOADER":PRINT
  2. 7 PRINT "        PLEASE WAIT 1 MINUTE..."
  3. 10 REM *****************************
  4. 15 REM *  M/C DATAMAKER            *
  5. 20 REM *  S.J.MASSEY  FEB 88'      *
  6. 25 REM *****************************
  7. 30 SA=40960:EL=138:LS=100:GOSUB45
  8. 35 SA=53232:EL=1:LS=1500:GOSUB45
  9. 37 PRINT
  10. 40 PRINT " DATA MAKER IS ENTERED USING THE"
  11. 41 PRINT "FOLLOWING COMMANDS:"
  12. 43 PRINT:PRINT "NEW":PRINT:PRINT "SYS 53232":PRINT:END
  13. 45 FOR NU=0TOEL:CH=0
  14. 50 FOR D=0TO7:READVA
  15. 55 IF VA<0 OR VA>255 THEN PRINT"ERROR IN LINE";LS+(NU*10):STOP
  16. 60 POKESA+(NU*8)+D,VA:CH=CH+VA:NEXTD
  17. 65 READ TV:IFTV<>CH THEN PRINT"ERROR IN LINE";LS+(NU*10)
  18. 70 NEXTNU
  19. 75 RETURN
  20. 90 REM ***** DATA FOR PROGRAM ****
  21. 100 DATA 73,78,80,85,84,45,42,83,570
  22. 110 DATA 84,65,82,84,32,76,73,78,574
  23. 120 DATA 69,63,42,73,78,67,82,69,543
  24. 130 DATA 77,69,78,84,32,80,69,82,571
  25. 140 DATA 32,76,73,78,69,63,42,83,516
  26. 150 DATA 84,65,82,84,32,65,68,68,548
  27. 160 DATA 82,69,83,83,32,79,70,32,530
  28. 170 DATA 67,79,68,69,63,42,69,78,535
  29. 180 DATA 68,32,65,68,68,82,69,83,535
  30. 190 DATA 83,32,79,70,32,67,79,68,510
  31. 200 DATA 69,63,42,56,164,65,76,80,615
  32. 210 DATA 72,65,32,78,85,77,69,82,560
  33. 220 DATA 73,67,83,32,79,78,76,89,577
  34. 230 DATA 32,80,76,69,65,83,69,42,516
  35. 240 DATA 169,161,69,78,68,32,32,32,641
  36. 250 DATA 69,78,68,32,65,68,68,82,530
  37. 260 DATA 69,83,83,32,77,85,83,84,596
  38. 270 DATA 32,66,69,32,42,32,32,32,337
  39. 280 DATA 32,32,71,82,69,65,84,69,504
  40. 290 DATA 82,32,84,72,65,78,32,83,528
  41. 300 DATA 84,65,82,84,32,65,68,68,548
  42. 310 DATA 82,69,83,83,33,33,42,255,680
  43. 320 DATA 71,69,84,73,78,32,68,229,704
  44. 330 DATA 169,0,133,251,169,160,133,252,1267
  45. 340 DATA 32,109,162,162,2,32,39,162,700
  46. 350 DATA 32,109,162,169,184,133,253,169,1211
  47. 360 DATA 3,133,254,162,5,32,137,162,888
  48. 370 DATA 162,6,32,39,162,32,109,162,704
  49. 380 DATA 169,186,133,253,169,3,133,254,1300
  50. 390 DATA 162,3,32,137,162,162,14,32,704
  51. 400 DATA 39,162,32,109,162,169,188,133,994
  52. 410 DATA 253,169,3,133,254,162,5,32,1011
  53. 420 DATA 137,162,162,18,32,39,162,32,744
  54. 430 DATA 109,162,169,190,133,253,169,3,1188
  55. 440 DATA 133,254,162,5,32,137,162,32,917
  56. 450 DATA 38,164,56,165,45,233,2,133,836
  57. 460 DATA 251,165,46,233,0,133,252,173,1253
  58. 470 DATA 188,3,133,180,173,189,3,133,1002
  59. 480 DATA 181,169,0,141,182,3,160,2,838
  60. 490 DATA 173,184,3,145,251,173,185,3,1117
  61. 500 DATA 200,145,251,200,169,131,145,251,1492
  62. 510 DATA 200,169,32,145,251,169,0,141,1107
  63. 520 DATA 180,3,141,181,3,169,8,141,826
  64. 530 DATA 183,3,162,0,161,180,72,24,785
  65. 540 DATA 109,180,3,141,180,3,173,181,970
  66. 550 DATA 3,105,0,141,181,3,104,141,678
  67. 560 DATA 192,3,142,193,3,32,54,163,782
  68. 570 DATA 104,200,145,251,202,208,249,200,1559
  69. 580 DATA 169,44,145,251,230,180,208,2,1229
  70. 590 DATA 230,181,165,181,205,191,3,208,1364
  71. 600 DATA 5,165,180,205,190,3,208,8,964
  72. 610 DATA 169,1,141,182,3,76,169,161,902
  73. 620 DATA 174,183,3,202,142,183,3,208,1098
  74. 630 DATA 177,173,180,3,141,192,3,173,1042
  75. 640 DATA 181,3,141,193,3,32,54,163,770
  76. 650 DATA 104,200,145,251,202,208,249,138,1497
  77. 660 DATA 200,145,251,200,152,72,24,160,1204
  78. 670 DATA 0,101,251,145,251,133,45,200,1126
  79. 680 DATA 169,0,101,252,145,251,133,46,1097
  80. 690 DATA 104,168,165,45,133,251,165,46,1077
  81. 700 DATA 133,252,173,182,3,201,0,208,1152
  82. 710 DATA 22,24,173,184,3,109,186,3,704
  83. 720 DATA 141,184,3,173,185,3,109,187,985
  84. 730 DATA 3,141,185,3,76,54,161,169,792
  85. 740 DATA 0,160,0,145,251,200,145,251,1152
  86. 750 DATA 24,169,2,101,45,133,45,169,688
  87. 760 DATA 0,101,46,133,46,24,165,45,560
  88. 770 DATA 105,7,133,47,133,49,169,0,643
  89. 780 DATA 101,46,133,48,133,50,96,24,631
  90. 790 DATA 160,5,32,240,255,96,141,183,1112
  91. 800 DATA 3,173,192,3,72,173,193,3,812
  92. 810 DATA 72,169,0,141,180,3,141,181,887
  93. 820 DATA 3,160,8,78,183,3,144,19,598
  94. 830 DATA 173,180,3,24,109,192,3,141,825
  95. 840 DATA 180,3,173,181,3,109,193,3,845
  96. 850 DATA 141,181,3,14,192,3,46,193,773
  97. 860 DATA 3,136,208,223,104,141,193,3,1011
  98. 870 DATA 104,141,192,3,96,160,0,177,873
  99. 880 DATA 251,201,42,240,6,32,210,255,1237
  100. 890 DATA 200,208,244,24,200,152,101,251,1380
  101. 900 DATA 133,251,169,0,101,252,133,252,1291
  102. 910 DATA 96,142,194,3,104,141,196,3,879
  103. 920 DATA 104,141,197,3,142,195,3,169,954
  104. 930 DATA 191,72,32,228,255,240,251,32,1301
  105. 940 DATA 210,255,201,13,240,6,72,206,1203
  106. 950 DATA 195,3,208,238,169,1,141,192,1147
  107. 960 DATA 3,169,0,141,193,3,168,145,822
  108. 970 DATA 253,200,145,253,104,201,191,240,1587
  109. 980 DATA 108,201,58,176,47,201,47,144,982
  110. 990 DATA 43,41,15,32,46,162,160,0,499
  111. 1000 DATA 24,173,180,3,113,253,145,253,1144
  112. 1010 DATA 200,173,181,3,113,253,145,253,1321
  113. 1020 DATA 169,10,32,46,162,173,180,3,775
  114. 1030 DATA 141,192,3,173,181,3,141,193,1027
  115. 1040 DATA 3,76,188,162,104,201,191,208,1133
  116. 1050 DATA 251,165,251,141,192,3,165,252,1420
  117. 1060 DATA 141,193,3,169,85,133,251,169,1144
  118. 1070 DATA 160,133,252,169,13,32,210,255,1224
  119. 1080 DATA 32,109,162,173,192,3,133,251,1055
  120. 1090 DATA 173,193,3,133,252,169,13,32,968
  121. 1100 DATA 210,255,169,63,32,210,255,174,1368
  122. 1110 DATA 194,3,76,148,162,173,197,3,956
  123. 1120 DATA 72,173,196,3,72,96,216,104,932
  124. 1130 DATA 141,198,3,104,141,199,3,140,929
  125. 1140 DATA 200,3,162,1,169,172,72,173,952
  126. 1150 DATA 193,3,201,7,144,31,208,7,794
  127. 1160 DATA 173,192,3,201,208,144,22,56,999
  128. 1170 DATA 173,192,3,233,208,141,192,3,1145
  129. 1180 DATA 173,193,3,233,7,141,193,3,946
  130. 1190 DATA 169,50,72,162,0,173,193,3,822
  131. 1200 DATA 201,3,144,31,208,7,173,192,959
  132. 1210 DATA 3,201,232,144,22,56,173,192,1023
  133. 1220 DATA 3,233,232,141,192,3,173,193,1170
  134. 1230 DATA 3,233,3,141,193,3,169,49,794
  135. 1240 DATA 72,162,0,173,193,3,201,0,804
  136. 1250 DATA 208,7,173,192,3,201,100,144,1028
  137. 1260 DATA 42,160,1,56,173,192,3,233,860
  138. 1270 DATA 100,141,192,3,173,193,3,233,1038
  139. 1280 DATA 0,141,193,3,201,0,208,7,753
  140. 1290 DATA 173,192,3,201,100,144,3,200,1016
  141. 1300 DATA 208,225,152,9,48,72,162,0,876
  142. 1310 DATA 76,210,163,224,0,208,3,169,1053
  143. 1320 DATA 48,72,173,192,3,201,10,144,843
  144. 1330 DATA 18,160,1,56,173,192,3,233,836
  145. 1340 DATA 10,141,192,3,201,10,144,13,714
  146. 1350 DATA 200,208,240,224,0,208,10,169,1259
  147. 1360 DATA 48,72,76,249,163,152,9,48,817
  148. 1370 DATA 72,173,192,3,9,48,72,160,729
  149. 1380 DATA 0,104,200,153,192,3,201,172,1025
  150. 1390 DATA 208,247,136,152,170,160,0,200,1273
  151. 1400 DATA 185,192,3,201,172,240,3,72,1068
  152. 1410 DATA 208,245,172,200,3,173,199,3,1203
  153. 1420 DATA 72,173,198,3,72,96,173,189,976
  154. 1430 DATA 3,205,191,3,144,10,208,9,773
  155. 1440 DATA 173,188,3,205,190,3,176,1,939
  156. 1450 DATA 96,169,117,133,251,169,160,133,1228
  157. 1460 DATA 252,169,13,32,210,255,32,109,1072
  158. 1470 DATA 162,169,13,32,210,255,32,109,982
  159. 1480 DATA 162,104,104,96,0,0,0,0,466
  160. 1490 REM ***** DATA FOR DRIVER ******
  161. 1500 DATA 165,1,72,169,54,133,1,32,627
  162. 1510 DATA 181,160,104,133,1,96,0,0,675
  163.